home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_82900.txt < prev    next >
Text File  |  1990-08-14  |  3KB  |  144 lines
  1. -- card: 82900 from stack: in
  2. -- bmap block id: 83375
  3. -- flags: 4000
  4. -- background id: 69011
  5. -- name: Action Comment…
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonName, buttonList
  9.   put the long date into field date
  10.   set hilite of background button id buttonName to false
  11.   repeat with index = 1 to the number of lines of buttonList
  12.     set hilite of background button id line index of buttonList to false
  13.   end repeat
  14. end openCard
  15.  
  16. on closeCard
  17.   global buttonName, buttonList
  18.   set hilite of background button id buttonName to true
  19.   repeat with index = 1 to the number of lines of buttonList
  20.     set hilite of background button id line index of buttonList to true
  21.   end repeat
  22.   put empty into card field "Comment"
  23. end closeCard
  24.  
  25.  
  26. -- part 1 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=0 top=-1 right=342 bottom=512
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: 
  38.  
  39.  
  40. -- part 2 (field)
  41. -- low flags: 00
  42. -- high flags: 0000
  43. -- rect: left=87 top=138 right=204 bottom=405
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Comment
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=134 top=230 right=248 bottom=202
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: OK
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   lock screen
  69.   pop card
  70.   unlock screen
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 4 (button)
  76. -- low flags: 00
  77. -- high flags: 2000
  78. -- rect: left=274 top=230 right=248 bottom=342
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Cancel
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   lock screen
  90.   pop card
  91.   unlock screen
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part contents for background part 28
  97. ----- text -----
  98. Abrosimoff, Mich‚Ķ
  99. Adams, Bryan
  100. Alexander, Rick
  101. Alexander, Susan
  102. Allsop, Blair M.
  103. Azimov, Isaac
  104. Barisoff, Larissa
  105. Bunyan, Paul
  106. Burnyeat, Grant
  107. Caldwell, Brian
  108.  
  109.  
  110.  
  111. -- part contents for background part 29
  112. ----- text -----
  113. 47
  114. 80
  115. 53
  116. 54
  117. 52
  118. 102
  119. 48
  120. 13
  121. 94
  122. 93
  123.  
  124. -- part contents for background part 30
  125. ----- text -----
  126. Present
  127. Present
  128. Present
  129. Present
  130. Present
  131. Present
  132. Present
  133. Present
  134. Present
  135. Present
  136.  
  137.  
  138. -- part contents for background part 31
  139. ----- text -----
  140. Monday, September 4, 1989
  141.  
  142. -- part contents for background part 33
  143. ----- text -----
  144. 0 students selected